5 REM  ***********************         
10 REM                                  
20 REM   ADVENTURE DRACULA              
30 REM                                  
40 REM                                  
50 SCREEN 7,4,4:CLS:LOCATE2,8:INPUT"DIMM
I IL NOME";CV$                          
60 IFCV$=""THENPRINT"SOLO ULISSE SI FACE
VA CHIAMARE 'NESSUNO'":PLAY"DODODODO":GO
TO 50                                   
70 IFCV$="VOSTRO NOME"THENPRINT:PRINT"  
 Si vede che hai la stoffa del          
  vincitore nato ....":GOTO110          
80 PRINT:PRINTTAB(5);CV$;" ? ... e con q
uesto nome"                             
90 PRINT"    cosi' ridicolo tu vorresti 
anche      risolvere questo ADVENTURE ? 
..."                                    
100 PRINT:PRINT"      NON CI RIUSCIRAI M
AI !!!!"                                
110 IFINKEY$=""THEN110                  
120 CLS                                 
130 GOSUB3740:LA=0:PO=0:CA=0:SC=0       
140 SCREEN 7,1,1                        
150 CLS:LOCATE8,0:PRINT"SALONE DEL CASTE
LLO":PRINT                              
160 GOSUB1640                           
170 '                                   
180 ' *******************************   
190 ' *                             *   
200 ' *    SALONE DEL CASTELLO      *   
210 ' *                             *   
220 ' *******************************   
230 '                                   
240 PRINT" Ti trovi nel salone del caste
llo del  conte Dracula vedi uno squallid
o LAMPADARIO,una losca PORTA, un vecchio
   CAMINO e una SCALA di legno.....":PRI
NT:PRINT" Direzioni:Nord"               
250 GOSUB1650:GOSUB1880:                
260 GOSUB1730                           
270 IFR$="0"THEN2080                    
280 IFR$=V8$+" "+"CHIAVE"ANDUC=1THENZX=1
:GOSUB1800:PRINT" C'e'dell'AGLIO qui den
tro.....":GOSUB1650:GOTO260             
290 IFR$=V9$+" "+"AGLIO"ANDZX=1THENAG=1:
OG=OG+1:GOSUB1800:PRINT" O.k...":GOSUB16
50:GOTO260                              
300 IFR$=VO$THENGOSUB1240:GOTO140       
310 IFR$=OG$THENGOSUB1500:GOTO140       
320 IFR$=V5$+" "+O2$ANDCH=0THENGOSUB1800
:CLS:LOCATE4,10:PRINT"Uno scheletro ti d
a la mano...":PRINT:PRINT"              
CIAO": PLAY"DODODODOREDO":GOTO2020      
330 IFR$=V6$+" "+O1$ANDLA=0THENGOSUB1800
:PRINT" Non c'e'nulla...solo ragnatele!!
!":GOSUB1800:GOSUB1650:GOTO260          
340 IFR$=V4$+" "+O3$THENGOSUB1800:PRINT"
Incredibile... c'e'una porta segreta!":F
ORP=1TO500:NEXTP:GOTO510                
350 IFR$=V5$+" "+O2$ANDCH=1THENUC=1:GOSU
B1800:PRINT"Serve la chiave...presto!!!!
":GOSUB1650:GOTO260                     
360 IFR$=V7$+" "+O4$ANDSA=0THENGOSUB1800
:PRINT" Sei sulla torre,vedi del SANGUE,
la    SCALA e una LANTERNA":GOSUB1650:GO
SUB1730:GOTO390                         
370 GOSUB1800:PRINT" LASCIA STARE.....":
GOSUB1650:GOTO260                       
380 GOTO390                             
390 '                                   
400 IFR$=V6$+" "+O6$THENGOSUB1800:PRINT"
 Cosa ci devi fare...le trasfusioni!!":G
OSUB1650:GOSUB1730:GOTO390              
410 IFR$=V9$+" "+O5$THENF=1:OG=OG+1:GOSU
B1800:PRINT"OK.....":GOSUB1650:GOSUB1730
:GOTO390                                
420 IFR$=M1$+" "+O4$THENGOSUB1800:PRINT"
 Ritorni al salone....":FORP=1TO500:NEXT
P:GOTO140                               
430 GOSUB1800:PRINT" LASCIA STARE.....":
GOSUB1650:GOSUB1730:GOTO390             
440 '                                   
450 ' ********************************  
460 ' *                              *  
470 ' *    PASSAGGIO SEGRETO (1)     *  
480 ' *                              *  
490 ' ********************************  
500 '                                   
510 FORP=1TO300:NEXTP                   
520 CLS:COLOR1,7:LOCATE5,10:PRINT"VEDIAM
O DOVE TI PORTA....":FORP=1TO1500:NEXTP 
530 VV=0:VM=0:FD=0:COLOR 15,1:CLS:LOCATE
14,0:PRINT"CIMITERO":PRINT              
540 GOSUB1640:PRINT"Sei uscito dal caste
llo,ti trovi nel  lugubre CIMITERO, noti
 una strana TOMBA,un TESCHIO e il PASSAG
GIO segreto.":PRINT:PRINT"Direzioni:Ness
una": GOSUB1650                         
550 GOSUB1730                           
560 IFR$=V5$+" "+"TOMBA"ANDPI=0THENGOSUB
1800:PRINT"C'e'un Vampiro voglioso di sa
ngue...":GOSUB1650:GOTO2020             
570 IFR$=VO$THENGOSUB1240               
580 IFR$=OG$THENGOSUB1500               
590 IFR$=V5$+" "+"TOMBA"ANDPI=1THENVV=1:
GOSUB1800:PRINT"C'e'un VAMPIRO che ripos
a,fallo fuori ...( Sparagli)":GOSUB1650:
GOTO550                                 
600 IFR$="USO"+" "+"PISTOLA"ANDVV=1THENV
M=1:GOSUB1800:PRINT"Poverino,gli e’schiz
zato lo stomaco..":GOSUB1650:GOTO550    
610 IFR$=V6$+" "+"VAMPIRO"ANDVM=1THENFD=
1:GOSUB1800:PRINT"Ora che e'morto non co
rri pericoli... il suo mantello cela un 
FISSATORE per dentiere":GOSUB1650:GOTO55
0                                       
620 IFR$=V9$+" "+"FISSATORE"ANDFD=1THENF
I=1:OG=OG+1:GOSUB1800:PRINT" O.K...":GOS
UB1650:GOTO550                          
630 IFR$=V6$+" "+"CIMITERO"THENGOSUB1800
:PRINT"Perche'? vuoi forse cambiare resi
denza?":GOSUB1650:GOTO550               
640 IFR$=V6$+" "+"TESCHIO"THENGOSUB1800:
PRINT"E'un teschio parlante, ti rivela c
he  nella stanza delle armi e'nascosta l
a mappa del castello,per trovarla devi  
pero'spostare qualcosa.....":GOSUB1650:G
OTO550                                  
650 IFR$=V4$+" "+"PASSAGGIO"THENGOTO140 
660 GOSUB1800:PRINT" LASCIA STARE...":GO
SUB1650:GOTO550                         
670 '                                   
680 ' *******************************   
690 ' *                             *   
700 ' *   PASSAGGIO SEGRETO (2)     *   
710 ' *                             *   
720 ' *******************************   
730 '                                   
740  CO=0:BO=0:OS=0:PLAY"LASIDOREMI":SCR
EEN 0,12,12                             
750 CLS:LOCATE7,0:PRINT"STANZA DELLE TOR
TURE":PRINT                             
760 GOSUB1640                           
770 PRINT"Sei finito nella stanza delle 
torture un luogo segreto, da dove nessun
 uomo e' mai riuscito ad uscire,noti un 
TORCHIO,una CATENA,il BUCO,ed uno SCHELE
TRO...":PRINT:PRINT"Direzioni: Nessuna" 
780 GOSUB1650                           
790 GOSUB1730                           
800 IFR$=VO$THENGOSUB1240:GOTO740       
810 IFR$=OG$THENGOSUB1500:GOTO740       
820 IFR$=V6$+" "+"TORCHIO"THENGOSUB1800:
PRINT"Di particolare c'e'solo del sangue
...":GOSUB1650:GOTO790                  
830 IFR$=V9$+" "+"CATENA"THENBO=1:GOSUB1
800:PRINT"Hai azionato qualcosa,si e'ape
rta una BOTOLA!!!":GOSUB1650:GOTO790    
840 IFR$=V6$+" "+"SCHELETRO"THENGOSUB180
0:PRINT"Da questa posizione sembra non a
vere  nulla di particolare....":GOSUB165
0:GOTO790                               
850 IFR$=V4$+" "+"BOTOLA"ANDBO=1THENCO=1
:GOSUB1800:PRINT"C'e'una CORDA": GOSUB16
50:GOTO790                              
860 IFR$=V9$+" "+"CORDA"ANDCO=1THENXC=1:
OG=OG+1:GOSUB1800:PRINT" O.K...":GOSUB16
50:GOTO790                              
870 IFR$=V3$+" "+"SCHELETRO"THENOS=1:GOS
UB1800:PRINT" Sotto quelle quattro ossa 
c'e' un FOGLIETTO!!!!":GOSUB1650:GOTO790
880 IFR$="LEGGO"+" "+"FOGLIETTO"ANDOS=1T
HENGOSUB1800:PRINT"Dice che il Conte Dra
cula, che tu cerchi disperatamente ,si t
rova al di la  della griglia, nelle segr
ete.....":GOSUB1650:GOTO790             
890 IFR$=V4$+" "+"BUCO"THEN2410         
900 GOSUB1800:PRINT" LASCIA STARE":GOSUB
1650:GOTO790                            
910 '                                   
920 ' *******************************   
930 ' *                             *   
940 ' *      PIANTA CASTELLO        *   
950 ' *                             *   
960 ' *******************************   
970 '                                   
980 CLS:SCREEN7,0,0                     
990 BOX(50,20)-(220,150), 15            
1000 COLOR 15:LOCATE7,0 :PRINT"PIANTA DE
L CASTELLO"                             
1010 BOXF(140,30)-(170,60),10           
1020 LINE(151,60)-(151,70),10:LINE(158,6
0)-(158,70),10                          
1030 BOXF(140,70)-(170, 100),10         
1040 LINE(170,81)-(180,81),10:LINE(170,8
9)-(180,89),10                          
1050 BOXF(180,70)-(210, 100),10         
1060 BOXF(130,70)-(100, 100),10         
1070 LINE(130,81)-(140,81),10:LINE(130,8
9)-(140,89),10                          
1080 BOXF(90,70)-(60, 100),10           
1090 LINE(90,81)-(100,81),10:LINE(90,89)
-(100,89),10                            
1100 BOXF(90,110)-(60,140),10           
1110 LINE(71,110)-(71,90),10:LINE(79,110
)-(79,90),10                            
1120 BOXF(100,110)-(130, 140),10        
1130 LINE(111,110)-(111,90),10:LINE(118,
110)-(118,90),10                        
1140 LOCATE0 ,23:PRINT"PREMI UN TASTO PE
R CONTINUARE"                           
1150 QA$=INKEY$:IFQA$=""THEN1150        
1160 RETURN                             
1170 '                                  
1180 ' *******************************  
1190 ' *                             *  
1200 ' *        VOCABOLARIO          *  
1210 ' *                             *  
1220 ' *******************************  
1230 '                                  
1240 CLS:SCREEN7,0,0:LOCATE13,2:PRINT"VO
CABOLARIO":LOCATE0,5                    
1250 PRINT:PRINT"                    SCE
NDO"                                    
1260 PRINT:PRINT"                    PRE
NDO"                                    
1270 PRINT:PRINT"                    USO
"                                       
1280 PRINT:PRINT"                    SAL
GO"                                     
1290 PRINT:PRINT"                    ESA
MINO"                                   
1300 PRINT:PRINT"                    AIU
TAMI"                                   
1310 PRINT:PRINT"                    ABR
ACADABRA"                               
1320 LOCATE0,5                          
1330 PRINT:PRINT"           APRO"       
1340 PRINT:PRINT"           ENTRO"      
1350 PRINT:PRINT"           ALZO"       
1360 PRINT:PRINT"           SPOSTO"     
1370 PRINT:PRINT"           BEVO"       
1380 PRINT:PRINT"           LEGGO"      
1390 PRINT:PRINT"           VOLO"       
1400 LOCATE4,21:PRINT"PREMI UN TASTO PER
 CONTINUARE"                            
1410 Q$=INKEY$:IFQ$=""THEN1410          
1420 RETURN                             
1430 '                                  
1440 ' ******************************   
1450 ' *                            *   
1460 ' *        INVENTARIO          *   
1470 ' *                            *   
1480 ' ******************************   
1490 '                                  
1500 CLS:SCREEN 7,0,0:LOCATE0,0:PRINT"  
         OGGETTI:":PRINT:PRINT          
1510 IFCH=1THENPRINT"           CHIAVE" 
1520 IFAG=1THENPRINT"           AGLIO " 
1530 IFF=1THENPRINT"           LANTERNA"
1540 IFPI=1THENPRINT"           PISTOLA"
1550 IFFR=1THENPRINT"           FRUSTA" 
1560 IFFI=1THENPRINT"           FISSATOR
E"                                      
1570 IFCR=1THENPRINT"           CROCIFIS
SO"                                     
1580 IFSC=1THENPRINT"           SCALA   
  "                                     
1590 IFSP=1THENPRINT"           SPRANGA 
  "                                     
1600 IFXC=1THENPRINT"           CORDA   
  "                                     
1610 LOCATE4,21:PRINT"PREMI UN TASTO PER
 CONTINUARE"                            
1620 Q$=INKEY$:IFQ$=""THEN1620          
1630 RETURN                             
1640 PRINT"*****************************
**********":RETURN                      
1650 PRINT"*****************************
**********":RETURN                      
1660 '                                  
1670 ' ******************************   
1680 ' *                            *   
1690 ' *          INPUT             *   
1700 ' *                            *   
1710 ' ******************************   
1720 '                                  
1730 PRINT:INPUT" Cosa fai ";R$:CF=CF+1 
1740 DATA XXXX,XXXXXXX,XXXXX,XXXXXXX,XXX
XXXXXX,XXXXX,XXXXXXXXXX,XXXXX,XXXXXXX:RE
M INSERIRE LE PAROLACCE                 
1750 RESTORE1740:FORQ=1TO9:READW$:IFR$=W
$THENPRINT:GOSUB1640:PRINT"   ";W$;" A T
E E A TUA MADRE ...":PRINT:GOSUB1640:GOT
O1730:ELSENEXTQ                         
1760 IFR$="AIUTAMI"THENPRINT:GOSUB1640:P
RINT" Fossi scemo ... l' ADVENTURE te la
    devi risolvere da solo.             
          (E SON CAVOLI... tuoi)":GOSUB1
650:GOTO1730                            
1770 IFR$="VOLO"THENPRINT:GOSUB1640:PRIN
T" Niente male come idea, peccato pero' 
 che, casomai te lo fossi dimenticato, n
on sei ne' un DIRIGIBILE ne' un JUMBO";:
GOSUB1650:GOTO1730                      
1780 IFR$="ABRACADABRA"THENPRINT:GOSUB16
40:PRINT" OOOH ma cosa credi ?! che ques
ta sia  una favola come ALI BABA'?! Ques
to e'  un ADVENTURE serio !!!":GOSUB1650
:GOTO1730                               
1790 RETURN                             
1800 PRINT:FORP=1TO160:NEXTP:RETURN     
1810 '                                  
1820 ' ******************************   
1830 ' *                            *   
1840 ' *      VERBI E OGGETTI       *   
1850 ' *                            *   
1860 ' ******************************   
1870 '                                  
1880 V1$="BEVO":V2$="SPOSTO"            
1890 V3$="ALZO":V4$="ENTRO":V5$="APRO":V
6$="ESAMINO":V7$="SALGO"                
1900 V8$="USO":V9$="PRENDO"             
1910 M1$="SCENDO"                       
1920 O1$="LAMPADARIO":O2$="PORTA":O3$="C
AMINO":O4$="SCALA":O5$="LANTERNA":O6$="S
ANGUE":VO$="VOCABOLARIO":OG$="INVENTARIO
"                                       
1930 D1$="NORD":D2$="SUD":D3$="EST":D4$=
"OVEST"                                 
1940 RETURN                             
1950 '                                  
1960 ' ******************************   
1970 ' *                            *   
1980 ' *         END GAME           *   
1990 ' *                            *   
2000 ' ******************************   
2010 '                                  
2020 FORP=1TO1500:NEXTP:CLS:LOCATE0,5:SC
REEN0,2,2:PRINT"PECCATO ";CV$           
2030 PRINT:PRINT"NON SEI RIUSCITO AD USC
IRE DAL CASTELLO DI DRACULA COMUNQUE PUO
I SEMPRE RIPROVARE"                     
2040 PRINT:PRINT"PREMI UN TASTO PER RIPR
OVARE"                                  
2050 U$=INKEY$                          
2060 IFU$=""THEN2050                    
2070 RUN                                
2080 GOSUB1650:GOSUB1800:INPUT" Direzion
e ";DI$                                 
2090 IFDI$=D1$THEN2110                  
2100 IFDI$<>D1$THEN:PRINT:PRINT" Non e' 
possibile":GOTO2080                     
2110 '                                  
2120 ' ******************************   
2130 ' *                            *   
2140 ' *   CORRIDOIO DEL CASTELLO   *   
2150 ' *                            *   
2160 ' ******************************   
2170 '                                  
2180 PLAY"MIDOREMILASO"                 
2190 CLS:SCREEN 2,0,0:LOCATE7,0:PRINT"CO
RRIDOIO DEL CASTELLO":PRINT             
2200 GOSUB1640                          
2210 PRINT"Sei nel CORRIDOIO, punto di r
accordo di tutte le stanze, c'e'un buio 
pesto  riesci a malapena ad intravedere 
un   OGGETTO luccicante,nell'aria c'e'un
   acre ODORE...":PRINT                 
2220 PRINT"Direzioni:Est,Sud,Ovest":GOSU
B1650                                   
2230 GOSUB1730                          
2240 IFR$=V6$+" "+"CORRIDOIO"THENY=1:GOS
UB1800:PRINT"C'e' troppo buio, non si ri
esce a distinguere nulla, ci vorrebbe un
 po' di..  luce":GOSUB1650:GOSUB1730:GOT
O2240                                   
2250 IFR$=V8$+" "+O5$ANDF=1ANDY=1THENL=1
:GOSUB1800:PRINT"Ora va meglio!!!,vedo u
na CHIAVE":GOSUB1650:GOSUB1730:GOSUB1800
2260 IFR$=V9$+" "+"CHIAVE"ANDL=1THENCH=1
:OG=OG+1:PRINT" O.K...":GOSUB1650:GOSUB1
730:GOTO2240                            
2270 IFR$=V8$+" "+"LANTERNA"ANDF=0ANDY=1
THENGOSUB1800:PRINT"Bugiardo non c'e l'h
ai!!!":GOSUB1650:GOSUB1730:GOTO2240     
2280 IFR$=V9$+" "+"OGGETTO"ANDY=0THENGOS
UB1800:PRINT"AL tatto sembra una CHIAVE!
!!,ma...... ahi, qualcosa mi ha morso !!
!":GOSUB1650:GOTO2020                   
2290 IFR$=V6$+" "+"ODORE"THENGOSUB1800:P
RINT"Niente di speciale feci di topo....
":GOSUB1650:GOSUB1730:GOTO2240          
2300 IFR$=VO$THENGOSUB1240:GOTO2180     
2310 IFR$=OG$THENGOSUB1500:GOTO2180     
2320 IFR$="0"THENGOSUB1650:GOSUB1800:INP
UT" Direzione";DI$:IFDI$=D2$THEN140ELSEI
FDI$=D3$THEN2900ELSEIFDI$=D4$THEN2410ELS
EGOTO2340                               
2330 GOSUB1800:PRINT" LASCIA STARE....":
GOSUB1650:GOSUB1730:GOTO2240            
2340 PRINT:PRINT"Non e' possibile":GOTO2
310                                     
2350 ' ******************************   
2360 ' *                            *   
2370 ' *          SEGRETE           *   
2380 ' *                            *   
2390 ' ******************************   
2400 '                                  
2410 PLAY"DODORE"                       
2420 BU=0:CLS:SCREEN0,8,8:LOCATE14,0:PRI
NT"SEGRETE":PRINT                       
2430 GOSUB1640                          
2440 PRINT"Sei sceso giu'nelle segrete,u
n luogo  umido e raccapricciante,noti un
a FRUSTA, una GRIGLIA,e una LUCE intensa
,  oltre che centinaia di topi.":PRINT:P
RINT"Direzioni:Sud,Est"                 
2450 GOSUB1650                          
2460 GOSUB1730                          
2470 IFR$=V9$+" "+"FRUSTA"THENFR=1:OG=OG
+1:GOSUB1800:PRINT" OK...":GOSUB1650:GOT
O2460                                   
2480 IFR$=V3$+" "+"GRIGLIA"THENGOSUB3640
2490 IFR$=V6$+" "+"LUCE"THENBU=1:GOSUB18
00:PRINT"Proviene da un BUCO sulla paret
e!!!":GOSUB1650:GOTO2460                
2500 IFR$=V4$+" "+"BUCO"ANDBU=1THENGOSUB
1800:GOTO740                            
2510 IFR$="0"THEN2550                   
2520 IFR$=VO$THENGOSUB1240: GOTO2410    
2530 IFR$=OG$THENGOSUB1500:GOTO2410     
2540 GOSUB1800:PRINT" LASCIA STARE....."
:GOSUB1650:GOSUB1730:GOTO2470           
2550 GOSUB1650:GOSUB1800:INPUT" Direzion
e ";DI$:IFDI$=D2$THEN2640ELSEIFDI$=D3$TH
EN2180                                  
2560 IFDI$<>D2$ORDI$<>D4$THEN:PRINT:PRIN
T" Non e' possibile":GOTO2550           
2570 '                                  
2580 ' *****************************    
2590 ' *                           *    
2600 ' *         ARMERIA           *    
2610 ' *                           *    
2620 ' *****************************    
2630 '                                  
2640 PLAY"MIREDODOREMI"                 
2650 MA=0:CLS:SCREEN 0,15,15:LOCATE8,0:P
RINT" STANZA DELLE ARMI":PRINT          
2660 GOSUB1640                          
2670 PRINT"Sei nell armeria,sulle pareti
 vecchie armi,una PISTOLA,dei fucili un 
rudimentale CANNONE,sulla destra un ARMA
DIO.":PRINT:PRINT"Direzioni possibili:No
rd": GOSUB1650                          
2680 GOSUB1730                          
2690 IFR$=V2$+" "+"CANNONE"THENMA=1:GOSU
B1800:PRINT" Ehila'!!! c'e'una MAPPA..."
:GOSUB1650:GOTO2680                     
2700 IFR$="LEGGO"+" "+"MAPPA"ANDMA=1THEN
GOSUB980: SCREEN 0:GOTO2640             
2710 IFR$=VO$THENGOSUB1240:GOTO2640     
2720 IFR$=OG$THENGOSUB1500:GOTO2640     
2730 IFR$=V9$+" "+"PISTOLA"THENPI=1:OG=O
G+1:GOSUB1800:PRINT" O.K...":GOSUB1650:G
OTO2680                                 
2740 IFR$=V5$+" "+"ARMADIO"ANDAG=0THENGO
SUB1800:PRINT"C'e'un bel Vampiro qui den
tro!!!!":GOTO2020                       
2750 IFR$=V5$+" "+"ARMADIO"ANDAG=1THENVA
=1:GOSUB1800:PRINT"Serve l'AGLIO,c'e'un 
vampiro!!!": GOSUB1650:GOTO2680         
2760 IFR$=V8$+" "+"AGLIO"ANDVA=1THENQE=1
:GOSUB1800:PRINT"O.k..il Vampiro e' scap
pato, comunque nell'armadio trovi una SC
ALA....":GOSUB1650:GOTO2680             
2770 IFR$=V9$+" "+"SCALA"ANDQE=1THENSC=1
:OG=OG+1:GOSUB1800:PRINT" O.K...":GOSUB1
650:GOTO2680                            
2780 IFR$=V6$+" "+"CANNONE"THENGOSUB1800
:PRINT"E' un vero relitto comunque e' me
glio non assagiare i suoi colpi":GOSUB16
50:GOTO2680                             
2790 IFR$="0"THEN2810                   
2800 GOSUB1800:PRINT" LASCIA STARE...":G
OSUB1650:GOTO2680                       
2810 GOSUB1650:GOSUB1800:INPUT" Direzion
e ";DI$: IFDI$=D1$THEN2410              
2820 IFDI$<>D1$THEN:PRINT:PRINT" Non e' 
possibile":GOTO2810                     
2830 '                                  
2840 ' *****************************    
2850 ' *                           *    
2860 ' *        BIBLIOTECA         *    
2870 ' *                           *    
2880 ' *****************************    
2890 '                                  
2900 PLAY"DODOSOLA":SCREEN 0,10,10      
2910 CLS:LOCATE13,0:PRINT"BIBLIOTECA":PR
INT                                     
2920 GOSUB1640                          
2930 PRINT"Questa e' un antica bibliotec
a,su di  un grosso SCAFFALE vi sono LIBR
I di   tutti i generi, pieni di ragnatel
e,al centro della stanza c'e'un TAVOLO."
:PRINT:PRINT"Direzioni:NORD,EST,OVEST"  
2940 GOSUB1650                          
2950 GOSUB1730                          
2960 IFR$=VO$THENGOSUB1240:GOTO2900     
2970 IFR$=OG$THENGOSUB1500:GOTO2900     
2980 IFR$=V6$+" "+"LIBRI"THENGOSUB1800:L
G=1:PRINT"C'e'n'e'uno particolare!!!!!":
GOSUB1650:GOTO2950                      
2990 IFR$="LEGGO"+" "+"LIBRO"ANDLG=1THEN
GOSUB1800:PRINT"Ah!,dice che per portare
 al termine   l'adventure bisogna a qual
siasi costo trovare il FISSATORE per den
tiere che si trova nel cimitero....":GOS
UB1650:GOTO2950                         
3000 IFR$=V2$+" "+"SCAFFALE"ANDFR=1THENL
U=1:GOSUB1800:PRINT"Sono caduti tutti i 
libri!!! comunque dietro lo scaffale c'e
uno strano LUOGO....":GOSUB1650:GOTO2950
3010 IFR$=V2$+" "+"SCAFFALE"ANDFR=0THENG
OSUB1800:PRINT"I libri ti cadono addosso
...brutta fine morire soffocati":GOSUB16
50:GOTO2020                             
3020 IFR$=V6$+" "+"LUOGO"ANDLU=1THENPO=1
:GOSUB1800:PRINT"E'un brutto posto, comu
nque vedi una BOTTIGLIA, ma anche un pip
istrello deciso a ferirti...":GOSUB1650:
GOTO2950                                
3030 IFPO=1ANDR$=V8$+" "+"FRUSTA"THENPO=
2:LQ=1:GOSUB1800:PRINT"Hai ucciso il pip
istrello, povera bestia, dunque hai dava
nti a te la BOTTIGLIA piena di un liquid
o misterioso..":GOSUB1650:GOTO2950      
3040 IFPO=1THENGOSUB1800:PRINT"Hai fatto
 male!!! il pipistrello non  perdona...p
erdi sangue... muori!!!!":GOSUB1650:GOTO
 2020                                   
3050 IFR$=V1$+" "+"BOTTIGLIA"ANDPO=2ANDL
Q=1THENVE=1:GOSUB1800:PRINT"Bravo!!,hai 
avuto coraggio ora sei immune ai veleni"
:GOSUB1650:GOTO2950                     
3060 IFR$=V6$+" "+"TAVOLO"THENGOSUB1800:
PRINT"Non ci noto nulla di anormale...":
GOSUB1650:GOTO2950                      
3070 IFR$="0"THEN3090                   
3080 GOSUB1800:PRINT" LASCIA STARE...":G
OSUB1650:GOTO2950                       
3090 GOSUB1650:GOSUB1800:INPUT" Direzion
e";DI$                                  
3100 IFDI$=D4$THEN2180ELSEIFDI$=D1$THEN3
190ELSEIFDI$=D3$THEN3450ELSEIFDI$=D3$THE
N2180                                   
3110 GOSUB1800:PRINT" Non e'possibile":G
OTO3090                                 
3120 '                                  
3130 ' ******************************   
3140 ' *                            *   
3150 ' *    STANZA DEI TESORI       *   
3160 ' *                            *   
3170 ' ******************************   
3180 '                                  
3190 PLAY"DOREDO"                       
3200 CLS:LOCATE9,0:PRINT"STANZA DEI TESO
RI": PRINT                              
3210 GOSUB1640                          
3220 PRINT"Ti trovi nell'immensa stanza 
dei tesori, vedi Uno SCRIGNO, una PORTA 
dorata dei CIMELI di inestimabile valore
 (artistico)....senti dei lamenti":PRINT
 :PRINT"Direzioni: Sud"                 
3230 GOSUB1650                          
3240 GOSUB1730                          
3250 IFR$=V5$+" "+O2$ANDXC=0THENGOSUB180
0:PRINT"La porta si e'chiusa e davanti a
 te   c'e'un gran Fossato, non hai i mez
zi  per oltrepassarlo, rimarrai qui den 
  tro per il resto della tua corta vita"
:GOSUB1650:GOTO2020                     
3260 IFR$=V5$+" "+O2$ANDXC=1THENLK=1:GOS
UB1800:PRINT"O.k. amico, non ti trovi mo
lto a tuo agio, la porta si e' chiusa e 
davanti a te c'e'solo un gran fossato, c
omunque noti qualcosa a cui appenderti c
i vorrebbe una CORDA..":GOSUB1650:GOTO32
40                                      
3270 IFR$=V8$+" "+"CORDA"ANDLK=1THENKL=1
:GOSUB1800:PRINT"Ehi,che mira! sembri In
diana Jones... hai superato il fossato e
 trovi una   SPRANGA di ferro...":GOSUB1
650:GOTO3240                            
3280 IFR$=V9$+" "+"SPRANGA"ANDKL=1THENSP
=1:OG=OG+1:GOSUB1800:PRINT" O.K...":GOSU
B1650:GOTO3240                          
3290 IFR$=V6$+" "+"SCRIGNO"ANDSC=0THENPR
INT"Non e' uno scrigno ma un profondo po
zzo,da qui provengono i lamenti...bisogn
a che trovi una SCALA deve stare in qual
che stanza del castello.....":GOSUB1650:
GOTO3240                                
3300 IFR$=V6$+" "+"SCRIGNO"ANDSC=1THENHJ
=1:GOSUB1650:PRINT"Non e' uno scrigno ma
 un profondo pozzo,da qui provengono i l
amenti ci vorrebbe una SCALA...":GOSUB16
50:GOTO3240                             
3310 IFR$=V8$+" "+"SCALA"ANDHJ=1THENUS=1
:GOSUB1800:PRINT"Bravo eroe hai salvato 
la vita a questo turista giapponese,vitt
ima dei vampiri...ma ora cosa vuoi? la m
edaglia , continua l'adventure!!!!!":GOS
UB1650:GOTO3240                         
3320 IFR$=V6$+" "+"CIMELI"THENGOSUB1800:
PRINT"Sono di gran classe....davvero!!!"
:GOSUB1650:GOTO3240                     
3330 IFR$=V9$+"CIMELI"THENGOSUB1800:PRIN
T"Fermo !!!!non sei venuto qui per rubar
e....guarda che figura..":GOSUB1650:GOTO
3240                                    
3340 IFR$="0"THEN3380                   
3350 IFR$=VO$THENGOSUB1240:GOTO3190     
3360 IFR$=OG$THENGOSUB1500:GOTO3190     
3370 GOSUB1800:PRINT" LASCIA STARE...":G
OSUB1650:GOTO3240                       
3380 GOSUB1650:GOSUB1800:INPUT" Direzion
e ";DI$:IFDI$=D2$THEN2900               
3390 IFDI$<>D2$THENPRINT:PRINT" Non e' p
ossibile":GOTO3380                      
3400 ******************************     
3410 *                            *     
3420 *    STANZA DEGLI OSPITI     *     
3430 *                            *     
3440 ******************************     
3450 PLAY"DODORELA"                     
3460 CLS:COLOR1,14:LOCATE12,0:PRINT"SALA
 OSPITI": PRINT                         
3470 GOSUB1640                          
3480 PRINT"Ti trovi nella lugubre stanza
 degli   ospiti vedi un QUADRO raffigura
nte    Frankenstein,un LETTO poco invita
nte  e un grazioso cadavere con due bei 
   buchi sul collo......":PRINT:PRINT"Di
rezioni:Ovest"                          
3490 GOSUB1650                          
3500 GOSUB1730                          
3510 IFR$=VO$THENGOSUB1240:GOTO3450     
3520 IFR$=OG$THENGOSUB1500:GOTO3450     
3530 IFR$=V6$+" "+"QUADRO"THENFK=1:GOSUB
1800:PRINT"C'e'l'effige di FRANKESTEIN, 
ma un momento....il mostro si muove!!! c
i vor rebbe qualcosa per colpirlo":GOSUB
1650:GOTO3500                           
3540 IFFK=1ANDR$=V8$+" "+"SPRANGA"ANDSP=
1THENFK=2:GOSUB1800:PRINT"Wow!!! l'hai s
teso...guarda guarda... aveva con se un 
 CROCIFISSO !!!!":GOSUB1650:GOTO3500    
3550 IFR$=V9$+" "+"CROCIFISSO"ANDFK=2THE
NCR=1:GOSUB1800:PRINT"O.K...":GOSUB1650:
GOTO3500                                
3560 IFFK=1THENGOSUB1800:PRINT"Sai il mo
strino, ha delle forti braccia....":GOSU
B1650:GOTO2020                          
3570 IFR$= V4$+" "+"LETTO"THENGOSUB1800:
PRINT"Che schifo c'e' solo un putridume 
di  carne in disfacimento.....":GOSUB165
0:GOTO3490                              
3580 IFR$=V6$+" "+"LETTO"THENGOSUB1800:P
RINT"Niente da dire...non ci dormirei ma
i  ma e' un letto e basta!!!":GOSUB1650:
GOTO3500                                
3590 IFR$="0"THEN3610                   
3600 GOSUB1800:PRINT" LASCIA STARE...":G
OSUB1650:GOTO3500                       
3610 GOSUB1650:GOSUB1800:INPUT" Direzion
e";DI$                                  
3620 IFDI$=D4$THEN2900                  
3630 GOSUB1800:PRINT" Non e'possibile":G
OTO3610                                 
3640 '                                  
3650 IFOG <9THENGOSUB1800:PRINT"Ok!! ami
co guardaci dentro per i prossimi cento 
anni!!!!":GOSUB1650:GOTO2020            
3660 IFOG =9ANDVE=1THENCLS:SR=1:GOSUB164
0:PRINT"Ehi! ma questo e' il nascondigli
o di  DRACULA e'pieno di serpenti ma ave
ndo bevuto il siero antiveleno puoi star
e tranquillo!!!"                        
3670 IFOG =9ANDVE=0THENGOSUB1800:GOSUB16
40:PRINT"E'il nascondiglio di Dracula,pe
ro'e' pieno di serpenti,uno ti morde,muo
ri":GOSUB1650:END                       
3680 IFSR=1ANDUS=0THENGOSUB1800:GOSUB164
0:PRINT"Comunque non hai salvato il turi
sta ":GOSUB1650:END                     
3690 IFSR=1ANDUS=1THENDF=1:PRINT:PRINT"H
ai salvato il turista,bravo!!!"         
3700 IFDF=1ANDCR=0THENPRINT:PRINT"Pero' 
all' improvviso arriva un fanta sma non 
hai il crocifisso e muori":GOSUB1650:END
3710 IFDF=1ANDCR=1THENLP=1:PRINT:PRINT"A
rriva un fantasma all' improvviso    usi
 il crocifisso che hai trovato e   lo fa
i secco"                                
3720 IFLP=1ANDFI=0THEN:PRINT:PRINT"Ecco 
il conte e' ansioso di avere il suo  fis
satore ma purtroppo tu non lo  hai e ti 
si suga.....":GOSUB1650:END             
3730 IFLP=1ANDFI=1THEN:PRINT:PRINT"Ecco 
che arriva il conte e vede che   porti c
on te il suo fissatore... per  la gioia 
ti da un bacetto sul collo   ti ritrovi 
senza un goccio di sangue  ma felice di 
aver risolto l'ADVENTURE":GOSUB1650:END 
3740 SCREEN0,7,7                        
3750 '                                  
3760 '                                  
3770 LOCATE0,4:PRINT"TI TROVI NEL CASTEL
LO DEL CONTE DRACULA, UN LUOGO PIENO DI 
INSIDIE (TRAPPO LE TRABOCCHETTI)."      
3780 PRINT:PRINT"IL TUO SCOPO E'DI RIUSC
IRE A TROVARE  IL FAMOSO VAMPIRO NASCOST
O IN QUALCHE ALA DEL CASTELLO."         
3790 PRINT:PRINT"PER RIUSCIRCI DEVI PERO
' RECUPERARE   DEGLI OGGETTI (ALCUNI NAS
COSTI),SENZA I QUALI NON POTRESTI ACCEDE
RE IN LUOGHI SEGRETI ANDANDO INCONTRO A 
MORTE  SICURA."                         
3800 PRINT:PRINT"IMPORTANTE!!: RIVOLGERS
I AL COMPUTER  SCRIVENDO MAIUSCOLO ED IN
 PRIMA PERSONA. (ES. PRENDO CHIAVE) PER 
CAMBIARE  DIREZIONE SCRIVERE '0'+ RETURN
. COMANDI SPECIALI: VOCABOLARIO; INVENTA
RIO."                                   
3810 PRINT:PRINT"PREMI UN TASTO PER COMI
NCIARE"                                 
3820 IF INKEY$=""THEN GOTO 3820         
3830 RETURN                             
3840 STOP